000000000 GGGGGGGGGGGG IIIIIIII1 NNN NNN 
LLL 000000000 GGGGGGGGGGGG III NNN NNN 
LLL 000000000 GGGGGGGGGGGG IIIT NNN NNN 
LLL 000 000 GGG II] NNN NNN 
LLL 000 000 GGG IIl NNN NNN 
LLL 000 GGG Il NNN NNN 
LLL 000 000 GGG Ill NNNNNN NNN 
LLL 000 000 GGG II] NNN NN 
LLL 000 000 GGG Ii] NNNNNN NNN 
LLL 000 000 GGG II] NN NNN NNN 
LLL 000 000 GGG II] NNN NNN NNN 
LLL 000 000 GGG III N 
LLL 000 000 GGG 66G6G6GGGG6G II] NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII1 NNN NNN 
LLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIT NNN NNN 
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MODULE fi 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


THIS SOFTWARE IS peru snee UNDER A LICENSE AND MAY BE USED AND gd 1 
'® ONLY IN om ANCE WITH THE TERMS OF SUCH pits ow * ake BU HE 
; CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVA ILABLE TO ANY 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ENT = 'v04-000', 
G NMODE (EXTERNAL ” = GENERAL)) = 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; eORPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


FOR THE USE OR )  orapaamai OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL 


I 
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Lee AAAEAEAAAAAE AAA AEEAAAEAAAAAAAAAARARERREKAKAA AA 


i ABSTRACT: 
This module contains 1/0 routines. 
i ENVIRONMENT : 
VAX/VMS operating system. 
AUTHOR: Tim Halvorsen, March 1981 
i Modified by: 
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Open SYSSINPUT: wath RAT = PRN and RFM = VFC. 


v03-011 ACG0434 Andrew C. Goldstein 9-Jul-1984 19:39 
Use SYSGEN parameter to time out all LOGIN reads 


V03-010 MHB0145 Mark Bramhall 27-Apr-1984 
Add flag for WRITE_OUTPUT's success/fail. 


v03-009 MHB0129 Mark Bra anhott 5-Apr-1984 
Add mode to GET_INPUT to oot onally return o timeouts. 
Hang up terminal on GET_INPUT silent exits. 
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Use LNM services for Logi 
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Allow coer and write access to the input stream if it is 


C. Goldstein, 


v03-006 
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minal channels when running down. 


Add a timer to GET UT to handle obscure failures. 


v03-005 


05-Sep-198 
SYSSCOMMAND, SYS 
er than $CRELOG. 


n Schoetet 
n of SYSSINPUT 


e the creatio 
YSSERROR to use SCRELNM rath 


v03-004 


$0169 $ 
For OPEN_INPUT, unconditionally open SYSSINPU 
than trying to figure out if 


only one stream should be 
used for both input and output. 


v03-003 


$0162 Gerry Smith 
ke WRITE_TIMEOUT global, so 


that the system password 
routine can use 
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Martin L. Jack, 29-Jul-1983 
Update for new log file error handling. 
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v007 


v006 


Tim Halvorsen 07 

problem creating the .LOG file for a 
then connect the output stream to NL: and 
ob to continue, rather than aborting with an 

s is to make network jobs more robust, in the 
event that the account has run out of quota, the disk out 
of space, the directory improperly protected, etc. 
enhancement can also be used to selectively prevent some 
petwers objects from producing a .LOG file, if disk space 


f there is an 


0077 25 
Correct RASO0075/ save the concealed device state 


for the CLI as well. 
RAS0076 Ron Schaefer 2 
Complete RASO075 to copy NAMSL_FNB from output to input. 


e concealed device 


0075 
Change CRELOG lo 
RROR and SYSSCOMMAND. 


names for SYSSIN 


Tim Halvorsen 2 

Remove code to put full filespec into PPF logical name. 
didn't think about 
character restriction on the size of an equivalence 


did it in the fi 
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maximum record size caused soe programs, which output 
very large records, to fail if writing to ey5 OUTPU 


voo5 TMHOO00S Tim Halvorsen 26-0c t-1981 
Store OUTFNM in LGI area rather than PPD. 
Change terminal character timeout to 15 seconds. 


v03-004 RASO035 Ron Schaefer 11-Sep-1981 
sone ete RASO033 by aluays toning the device none from 
tye el DVI field and not the RSA field if not a 


v03-003 RASOOTS Ron Schaefer 4-Sep-1981 
Translate the device name from the RSA nsten cresting 
the logical names SYS$xxx. This change required by the 
new device parse logic. 


v002 TMHOO002 Tim Halvorsen 16-Jul-1981 
Reference SHRLIB$ for shared require files. 


vO3-001 GwWF00S2 Gary W. Fowler 29-May-1981 
Add XABFHC and calle to flush " ond display Log” file 
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' Common BLISS definitions 

! Process permanent data region 

! LOGINOUT private permanent storage 
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| Table of contents 


FORWARD ROUTINE 
apen, ae 
close_input: 
peng oat: 
close_output: 
write_file: 


External routines 


EXTERNAL ROUTINE 
create_logical, 
set_terminal_hangup: 
exit_process: 


Define Literals 


Define message codes 


EXTE 


R 
l 
l 
l 
l 


write_fao: 


write_output, 
write_timeout: 


get_input: 


handler: 


LITERAL 


cr = 13; 


t 
: OWN storage 


GLOBAL 
write_output_status, 


rsbuf: 


output_nam: SNAM( 


L LITERAL 
$_openin, 
$_inputerr, 
$_outputerr, 
$_cmdinput; 


"> 


NOVALUE, 
NOVALUE, 


NOVALUE, 
NOVALUE ; 


NOVALUE, 
NOVALUE, 
NOVALUE ; 


buf 

LLOCATION(rsbuf) 

rsbuf 
ALLOCATION(rsbuf) 


@Dmarm 


0-74 
GIN.S 


care primary input file 

Close primary input file 

Open primary output file 

Close primary output file 

Write file to primary output 

Write formatted message to output 
Write to othe output stream 

Write timeout AST 

Get record from primary input stream 


Create logical name with LNM services 
Set/clear terminal's hangup state 
Terminate process 

Condition handler 


Carriage return character 


VECTOR Cnam$c_maxrss,BYTE); ! Buffer for resultant filespec 


! WRITE_OUTPUT's Last status 


f 
, 


NAM for SYSSOUTPUT 
Expanded filespec buffer 


Resultant filespec buffer 
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VOs000 1b-Se0-1984 My2tibs NaS csunBhaStenccy CIFILEIO.B32¢9%" (23 


: 205 604 1 
3 P 0605 1 output_fab: SFAB( ! ha for SYSSOUTPUT 
§ P $ 1 FNM = ‘SYSSOUTPUT', ' Primary filespec 
3 8 P 1 DNM = '.LOG’, ' Default filespec 
; 209 P oo8 1 FAC = PUT, ' Output gnly 
; 10 P 06 1 RAT = PRN, ! Print file format 
s 2 P0610 1 RFM = VFC ! Variable length with fixed control 
: ig P0611 1 FOP = (PPF,SQ0,SUP), i Process permanent file 
3 2 P ols 1 ! Sequential only network optimization 
> 214 P0613 1 i Supersede existing file if explicit 
3 15 P 0614 1 ' version specified 
: HR = oU ° : ow others to rea e 
1 P 0615 1 SHR (GET,UPI) ' All h d fil 
$ i 1 : NAM = output_nam), ! Address of NAM block 
; 219 P 2018 1 output_rab: $RAB( ! RAB for SYSSOUTPUT 
3 0 P 0619 1 MBC = 1 ! 1 block/buffer (Limit initial alloc.) 
: 1 P 0620 1 MBF = -1, H buffer/stream (ditto) 
3 ¢ Be 1 : FAB = output_fab); ! Address of FAB block 
3 4 06 : 1 GLOBAL 
$ 5 0624 1 input_chan, ! Channel number for SYSSINPUT 
: § 06 5 ! output_chan, ' Channel number for SYSSOUTPUT 
: 8 P 06 : 1 input_nam: S$NAM( ! NAM for SYSSINPUT 
: 9 P 0628 1 RSA = rsbuf ' Resultant filespec buffer 
; 9 06 3 RSS = ZALLOCATION(rsbuf)), 
: 32 P 0631 1 input_fab: $FAB( ! FAB for SYSSINPUT 
: P 06 ¢ 1 FNM = ‘SYSS$INPUT', ' Primary filespec 
3 P 06 1 DNM = ‘.COM', ' Default filespec 
3 5 P 0634 1 FAC = GET, ' Read only 
: P 0635 1 RAT = PRN, ! Print format 
3 gar P 06 $ 1 RFM = VFC ! Variable length 
; 238 P 0637 1 FOP = (PPF,SQ0,INP), | Process permanent file 
; 239 e st 1 ' Sequential only, network optimization 
; 240 P 0639 1 ' input stream 
3 ) peed : NAM = input_nam), ! Address of NAM block 
; 48 P Ose 1 input_rab: $RAB( ! RAB for SYSSINPUT 
3: 246 P 06435 1 FAB = inoyt fab ' Address of FAB block 
> 265 P 0644 1 ROP = (CVT,TMO,PTA) i Convert to uppercase on entry 
: r¢ ia . F ' Read with timeout 
: 24 P § 1 ! Purge typeahead so that unsolicited 
3 28 B ! ; ! character that started job is ignored 
: 250 § 1 
; 251 39 1! 
3 26 3 ! } External storage 
: 254 53 1 
3 55 23 1 EXTERNAL 
; 2$ 5 1 pcb_sts: BITVECTOR ! Our process status flags 
> 25 36 1 sys$gb_retry_tmo: BYTE, i Terminal read timeout value 
; 38 : ' et $ag7cl idata; ! Process permanent data storage 
: 260 25 1 BIND 
3 eel 1 ped = ctl$ag_clidata: BBLOCK; ! Address the structure 
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GLOBAL ROUTINE open_input: NOVALUE = 


This routine opens the primary input file. 


Access mode is executive. 
sysSinput = Descriptor of SYSSINPUT equivalence string 


input_fab/rab = FAB/RAB of SYSSINPUT stream 
The PPF Logical names SYSSINPUT and SYSSCOMMAND are created. 


BEGIN 
BUILTIN FP; 


BIND 
devchar = input_fab Cfab$l_dev] : SBBLOCK; ! Device characteristics 
LOCAL 


4+nam$c_maxrss),! Buffer for equivalence string 
2) ! Descriptor o 


! Enable condition handler 


-fp = handler; 


Set up the read timeout from the SYSGEN parameter cell. 


input_rabCrab$b_tmo] = .sys$gb_retry_tmo; 


Open the input file and signal and quit with any errors. 
if NOT (status 
THEN 


dw me ee 


SOPEN(FAB = input_fab))! Open input file 
! and signal fatal errors 


SIGNAL_STOP(\gi$_inputerr,0,.status, .input_ ab Cfab$l_stvJ); 


If input device is a terminal, then close the file and reopen it with 
both read and write access. 


-devchar Cdev$v_trm] input is from a terminal 

ccin en reopen with read and write access 
SECOSE (FAB = input fgb): 

fac] = fab$m_get OR fa 
(status =SOPEN(FAB = Tnput_fab) 


SIGNAL_STOP(Lgi$_inputerr,0,.status, .input_fab Cfab$i_stv]); 
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FILEI 
- IDENT \V06-000\ 
-PSECT SPLITS,NOWRT ,NOEXE,2 


0 71 END; $ 
1 A é 
§ f 1 Connect to the input file and signal and quit with any errors. ‘ 
5 7 j iF NOT (status = SCONNECT(RAB = input_rab)) ; Bee’ to input file ‘ 
8 724 ~~ s nal any errors ‘ 
f f 5 SIGNAL _STOP(Lgi$_inputerr,0,.status, .input_ e. rab$l_stvJ); : 
9 7 ‘ input_rab Erabsv-p ppf_ind] = true; ! Mark ok to use this RAB yy user mode ; 
0 7 3 input. rab Lrab$v_ppf_rat ebSe.. i Set default record forma ; 
1 7 inpu Beate. | . input. f Fab fab 3 i § ve exec channel if cormingt ; 
r4 730 ppd d ‘ .inpchan input ab densi st ' Save exec channel if terminal ° 
3 731 ppd ppds \Zinpdev] = - {input} Tab Cfab$l_dey : ! Save device characteristics ‘ 
7 § ppd [ppd$w_inpifi] = <fab Cfab$w_ifi); ! an : 
5 7 ppd Lppd$w_inpisil = + nout. rab rabsu isid; i and ISI ‘ 
§ 8 : ppd Cppd$v_inpccl] = .input_nam Cnam$v_cncl ‘ dev): ! and concealed attr ; 
3 8 $ CHSMOVE (ppd$c_dvifid, input_nam Cnam$t_dviJ, ppd Cppd$t_inpdviJ); : 
40 738 buffer £9-8 0. 16. 6-8) = ! Escape character : 
1 739 buffer sioput fab ctpptu,t ifi); ° 
¢ 740 ptr = sao input nam dvil), ‘ 
0741 ut nam SBvTeD FSET (nanst nats. O: 70,0], bufferl4,0,0,0); : 
4 ores CHSWCH ! Append a colon to device name ; 
5 074 butdesct0), = CHS Birei. ptr, buffer); ; 
7? Bree bufdesc(i) = buffer; ‘ 
r* ores create, logical (BASCID *SYSSINPUT', ! Re-define SYSSINPUT : 
SC, ; 
50 0748 pst $c. exec, ‘ 
51 0749 CIF Tnput nam Cnam$v_cncl_dev] ‘ 
26 0750 THEN UPLIT(Lnm$m_terminal~ OR Lnm$m_concealed) : 
37 b5e4 ELSE UPLIT(Lnm$m_terminal))); ‘ 
22 0738 create ~lapicat CASCID *SYSSCOMMAND', ! Define SYSSCOMMAND : 
esc, : 
57 0755 psl$c ne : 
58 0756 (IF am Cnam$v_cncl_dev] : 
59 0757 THEN U LiTcinn$n, terminal” i, Lnm$m_concealed) : 
0758 ELSE UPLIT(Lnm$m_terminal))) : 
$0) 0759 : 
2 0760 1 END; : 
54 55 50 54 55 4F 26 53 59 53 00000 P.AAA: .ASCII \SYSSOUTPUT\ : F 

47 4F 4 4 OOOA P.AAB: .ASCII \.LOG : : 

54 55 50 46 49 24 53 $5 P.AAC: .ASCII \SYSSINPUT\ 3 3 

4D 4F 4 E if P.AAD: ity \.COMN 3 : 

00 00 00 54 55 50 4E 49 246 53 59 1C P.AAF: <ASCII \SYS$INPUT\<0><0><0> : ; 

01060008 28 P.AAE: .LONG 13082)29 ; 3 
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' .ADDRESS_P.AAF : 

G pears: LONG ; 

00 44 4E 41 4D 4D 4F 43 24 53 8 P.AAJ: ASCII \S¥S$COMMAND\<0> : 

10E0 44 P.AAL: LONG 17694731 : 

p 6 rh P.AAK ONG 76 er ; 

20 086 P-AAL: LONG 798 : 


«PSECT SOWNS,NOEXE,2 
00000 RSBUF: .BLKB 255 

«PSECT S$GLOBAL$,NOEXE,2 
00000 WRITE_OUTPUT prnpeers 


-BLKE 

02 00004 OUTPUT_NAM: : 
BYTE g 3 
60 00005 BYTE 6 5 
FF 0006 BYTE -1 3 
6% 0007 -BYTE 0O $ 
00000000' 00008 -ADDRESS RSBUF é 
00 464 BYTE 3 
00 0000D .BYT 3 
FF OQCO0E BYTE -1 : 
00 QO000F BYTE $ 
00000000" 00010 eADDRESS RSBUF F 
00000006 00014 eLONG 0 ; 
00004 00018 -WORD 0 8 3 
0000#4 00028 -WORD 0 3 
4 4 E WORD 8 3] 3 
00000000 00034 LONG 3 
00000000 tg -LONG 0 ; 
00 0003¢ “BYTE 0 : 
00 0003D BYTE 0 3 
00 Bose BYTE 0 é 
00 00035F -BYTE 0 3 
00 00040 BYTE 3 
8 Bees BYTE : 
# 00042 BYTE C2) 3 
000000 044 LONG 3 
00000 048 LONG 3 
pee LONG F 
LONG é 
000 038 TONG 
$00 000% 09 C » LONG C2) ; 

0 64 OUTPUT_FAB: : 
BYTE 3 
3 65 BYTE 0 3 
WORD F 
4004 LONG 62212 g 
5 LONG 3 
74 LONG 
78 » WORD 3 
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37534208 
INPUT _FAB 


fe} 
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pe eel e oo lolol ol olololololololololololelololo) 
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Be e 
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FAB+64 
6 
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DEVCHAR= 


CMD INPUT 


NDL 
INPUTERR 

GI$ 

RETR 

ONNE CT 


L 
Ss 


ICAL, 
61s 
s 
$c 


PENIN 


éR 
SYS$ 
ELIDAT 
SE, SYS 


UTPUT 
S 
Ly) 


TE 
Pp 
0 
0 
T 
G 
L 
-PSECT SCODE$,NOWRT,2 


; 0661 


ai yur 


ENTRY OP 


OFFC 00000 


- Save R2,R3,R4,R5,R6,R7,R8,R9,~ 


OPEN, R11 


TRY_TMO, INPUT_RAB+31 


TERR, R8 
RE 

AB 

SSOPEN 


Sys$ 
P.AAG, R10 
AB+12, R6 
SP 
(FP) 
SYS$GB 
INPUT F 
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STATUS 
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-32 V4 
ER: 
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VCHAR, 2$ 
U fee 

SS$CLOSE 

yt pure PAB+22 


steer 


4:1 
1:0 
R 
S 
INPUT 
STATU 
=(SP) 
R 
#2. DE 
INPUT 

ah’ fepore 
INPUT 

#1, 

S Aros. 

INPUT ofabe12 
STATUS 

=(SP) 


Re& 

* LIB$STOP 

#1, SYSSCONNECT 
0, STATUS 
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N 


3$ 
INPUT _RAB+12 
STATUS 
=(SP) 


RB 
#4, LIBSSTOP 
#64, INPUT_ 


PD+ 
#4, Ag NPUT RAR®S, RO 
$36, INPUT *NANe20, PPD+40 
INPUT hans (BUFFERS? 
INPUT_NAM+21, BUFFER+4 
(PTRYs 

RO Ete. Re UFD DESC 

BUFFERS BUF DESC +4 

#4, INPUT_NAM+53, 4$ 

p: AAG. RO™ 


P.AAH, RO 
RO 


#1 
BUF DESC 
AAE 
#4, CREATE LOG] CAL 
#4; INPUT_RAM+53, 68 
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50 iC = =AA iF \13 MOVAB P,AAK, RO ; 0757 
04 1 11 BRB 7 ; 
50 20 AA YE 00119 34 MOVAB P.AAL, RO ; 0758 
50 DD 00110 7$ PUSHL RO ; 
01 DD OO11F PUSH. = #1 ; 0753 
08 AE 9F 00121 PUSHAB BUFDESC ; 
14 AA OF 00124 PUSHAB P.AAI ; 
000000006 00 04 FB 00127 CALLS #4, CREATE_LOGICAL 3 
04 0012E RET ; 0760 


; Routine Size: 303 bytes, Routine Base: $CODE$ + 0000 
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————————— 


15 
E b-5¢ 1984 01:54: VAX-11 Bliss-32 V4.0-742 Page 14 
ved | =300 713 Oh: 24: he DISK VMSMASTER=CLOGIN. SACIFILEI0.B32:1" (4) 
64 761 1 GLOBAL ROUTINE close_input: NOVALUE = 
65 788 1 _— 
$1 765 1 !-=- | 
6 764 1! 
68 $762 1! Close the hy ma | ines file, so that another may be opened. 
“+4 B89 : This is done in batch jobs with more than one job step. 
71 584 1 ! Inputs: 
ae 4 1! } 
7 0770 1! input_fab = FAB for input file 
7% 0771 1! 
75 bite 1 ! Outputs: 
76 773, «11! 
77 0774 1! ALL errors are ignored. 
78 0775 1 !-=-- 
79 p77e 1 
80 0777 2 BEGIN 
381 0778 § 
382 0779 SCLOSE(FAB = input_fab); ! Close input file 
383 0780 2 
384 0781 1 END; 
0000 00000 ENTRY CLOSE_INPUT, Save nothing ; 0761 
0000" CF 9F 00002 PUSHAB’ INPUT _FAB 3; 0779 
00000000G 00 01 FB 00006 CALLS #1, SYSS$CLOSE 3 
04 G000D RET ; 0781 


; Routine Size: 14 bytes, Routine Base: S$CODE$ + 012F 
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ne 
SSSSLESRANLSSESS 
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09 G9 CO Cd Od Cd Co Co Cd Cd Co Od CD CD CO 
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SKSVMS 


GLOBAL ROUTINE open_output: NOVALUE = 


' 

This routine opens the primary output file. It also defines 
the logical names SYSSOUTPUT and SYSSERROR. SYSSOUTPUT and 
SYSSERROR are always defined as executive mode logical names 
to contain the IFI of the output stream. 

Inputs: 
Access mode is executive. 
Outputs: 
output_fab/rab = FAB/RAB of SYSSOUTPUT stream 


The PPF Logical names SYSSOUTPUT and SYSSERROR are created. 


BEGIN 
BUILTIN FP; 
BIND 
igi = .ppd Cppd$li_lgiJ: BBLOCK; ! Address the LGI area 
a 
r 
buffer: BBLOCK (4+nam$c_maxrss],! Buffer for eget yetense string 
bufdesc: VECTOR (2), ! Descriptor of above buffer 
status; 
-fp = handler; ! Enable condition handler 
status = SCREATE(FAB = output_fab); ! Create SYSSOUTPUT file 


i 

! If an error was detected, and this is a network job, then allow the 

! job to continue by connecting the output stream to NL:. This is done 

' so that network jobs are more robust, and proceed even in the case where 
the user has run out of disk quota, or the disk is out of space. 


IF NOT .status ! If_error detected, 
AND .pcb_sts CSBITPOSITION(pcb$v_netwrk)] ! and this is a network job, 


THEN 
output_fab (fab$l_fna] = UPLIT BYTE(’_NL:'); 
output_fab [fab$b_fns] = 4; 
output_fab [fab$b_dnsJj = 0; 
TE(FAB = output_fab); ! Create SYSSOUTPUT file to NL: 


status = $CREA 
END; 


IF NOT .status ' If error detected, 
SIGNAL_STOP(Lgi$_outputerr,0, ! then signal fatal error 


POR IPOPPU IEWI IIRORPOPONOPOPUPONONOPOPUPOPOPUPUROPOPIPUPUPUNINIPIIIND 2 
" 


lis 4.0-742 
MASTER: CLOGIN.SRCJFILEI0.832 


at at at ot ot ot ot 
PPP AANLINIIN 
COONS WR 


b te tytytytytytrty tye} o> 49999 94 or 
te ae oe at et et et et et ee 


OOOCCODBDOOOOCOCOOCOOOOOOOoOOCoOO 


Psat 
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TOTS. 
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-Status, .output_fab Cfab$l_stv]); 


status = SCONNECT(RAB = output_rab); ! Connect to SYSSOUTPUT file 
IF NOT .status ! If error detected, 
SIGNAL_STOP(Lgi$_outputerr,0, ! then ignal fatal error 


.Status, output. rab Crab$l_stvJ); 


output_rab prebév. ppf_ind] = true; 


! Mark ok to use this RAB in user mode 
rab$v_ppf_rat] = fab$m_cr; i Set default RAT to CR mode 


output_rab 
output_chan = .output_fab Cfab$i_stvJ; ! Save exec channel if terminal 
ped Cppd$l_ moe | = soutput, fab- fab$l_d dev : ! Save device characteristics 
ppd podies utifi] = .output_fab “ b$w_ 1") ! and IFI 
ppd (ppd$w_ urlet = ,output_rab rabsun isi ' and ISI 
Opd ppd$v_outccl] = .output_nam Cnam$v_ cncl jie} ! and concealed attr 
CHSMOVE (ppd$c_dvifid, output_nam Cnam$t_dvil, ppd Cppd$t_outdvil); 
buffer 16, = 27; cape character 
buffer mt O} : -output_ fab Cfab$w it; . 
ptr = CH Ove CENSRC 


CHARCoutput nam Cnam$t_dvil), 
utput. "et C$BYTEO FSET(namst "avqye1 050,0], bufferl4,0.0,0)); 
CHSWCHAR. AC Append a colon to device name 


tr); 
putdesct 0) = ‘chsh iFFi. ptr, buffer); 


bufdescl1J = buffer; 
create anmatent Conet te *SYSSOUTPUT', ! Re-define SYSSOUTPUT 
sc, 
pst $c. exe 


<output nam Cnam$v genet dev] 
hen UPLITTLnm$m_terminal OR Lnm$m_concealed) 
ELSE UPLIT(Lnm$m_terminal))); 


Sroste, sages terse *SYSSERROR', ! Define exec mode SYSSERROR 
oC, 
ps\$c_exec, 
if Fejourput nam Cnam$v gene l dev] 
1TTLnm$m_terminal R. Lnm$m_concealed) 
ese UPLIT(Lnm$m_terminal))) 


1 END; 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


3A 46 3 sf 0054 P.AAM: .ASCII 
00 00 54 55 50 54 55 4F 24 § 3 00058 P.AAO: ACL Noe 
1 A 64 P.AAN: LON 
* 00068 ODES P AAO 
$f P.AAP: .LONG £6 
00 00 00 52 4F 52 52 45 246 53 7% BT AAS: atta \SYSSERROR\<0><0><0> 
01 £0 80 P-AAR: .LONG <sYssenn 
0 0° “ADDRESS P.AAS 


if: 
g00003R) BnRR P 


OFFC 00000 
28 00000006 00 43 £008 
A BS 00G 8F 000 
23 0 G 00 9E 19 
° ff E 1 
0000 G 00 9E 1 
6 0000" CF YE 000 
E 434: 43 9E 000 
6D 000000006 9E 00020 
AE A6 9F 00034 
8 1 FB 00037 
§ 0 4 OO3A 
3 ¢ E8 00030 
11 000000006 00 0 4 BRe8 
DA A6 4 ‘ 0048 
E2 A6 4 BO 0004C¢ 
AE A6 9F it! 
69 9 F Booe 
52 $ DO 00056 
oc 32 E8 00059 
BA A6 DD 0005C 
52 DD O005F 
7E 04 00061 
5A 0D B088 
68 04 FB 0006 
FE A6 9F 00068 
000000006 00 1 FB 000 
52 0 00 000 
oc 52 E8 0007 
OA A6 DD Bere 
52 0D 00078 
7E 04 00070 
5A DD 0007F 
68 4 FB 00081 
01 8 A6 40 F 88 000 
66 08 06 02 F $8 9 
46 A BA A6 D 
6 EE A6 OD 9 
co. oA? BO A6é B 9 
C2 A? 6 8 9 
0 83 A6 1 4 EF A 
9E OA 01 6 a 
ES A? FFGS C6 1c 2 A 
0 AE 18 8B B 
OA A rt A B 
5 FF6 A ‘ 
Oc AE FF63 . C 
A c8 
08 AE 9E CB 


$ 
“S 


15 


AAT: 
P.AAU: 


1$: 


2$: 


3$: 


1986 F2:29503 bt 


» LONG 


~EXTRN 


X-1 
SK$ 


543 


SYSSCREATE 
SCODES ,NOWRT ,2 


$sToP, R11 
#LGI$_OUfPUTERR, R10 
SYS$CREATE, RO 


a OUTPUT FAB+44 
i OUTPUT_FAB+5 
oy fPUT_FAB™ 
SYSSCREATE 
RO’ STATUS 
STATUS, 2 
OUTPUT. FAB+12 
STATUS 
=(SP) 
R10 
a4 L1BssToP 
#1, SYSSCONNECT 

STATUS 

STATUS, 3$ 
OUTPUT. RAB+12 
STATUS 


=( 


e 


. #7 0 TPUT sane 3, RO 
M6. B+3 
# #6, OU put NARS 0, PPD+72 
R™ 
saat “FAB? 5 BUBFER*2 
ae Prk Hated. BUF FER+4 
BUF FRER. R, 


1 Bliss-32 V4.0-742 
veh TER: CLOGIN. SRCJFILEIO. B32: . 


Oren ayrrur Save R2,R3,R4,R5,R6,R7,R8B,RI,- 


Ooooooo oOCoCooCoOOo 


5 


0782 


oo 
> 


eet SOSSS?S 
POW VWI 
WOON UNSW —O@ 


FS. 


15-50-1984 01:54 15 VAX=11 Bliss-32 V4.0-742 18 
14-Sep-1984 DISKSVMSMASTER: CLOGIN. SACIFILEIO. B32. 7% (5) 
6E 50 g3 C SUBL3 PTR, BUF DESC ; 
04 A 08 AE F D MOVAB ae * BUF DESC+ : 3 0865 
06 3 04 § D BBC ufpuT. NAM+53, 4$ + 0870 
18 «AS E 0D MOVAB + 0871 
04 1 E BRB : 
50 1¢ As 9E OOOES 4$: MOVAB P.AAQ, RO + 0872 
; DD OO0E7 5$: PUSHL R : 
1 DD O00E9 PUSHL # + 0867 
08 Ae F OO00EB PUSHAB BUFDESC ; 
10 AS OF EE PUSHAB P.AA : 
000000996 00 04 re F CALLS ui, CREATE _LOGICAL ; 
06 A 4 3 F8 BBC pt TET NAM+53, 6$ 3; 0877 
5 34 AB F FD MOVAB + 0878 
04 11 001 BRB ; 
50 38 As 9E 001 68: MOVAB P.AAU, RO + 0879 
50 OD 4 $: PUSHL RO 3 
01 9D 001 PUSHL #1 + 0874 
08 AE oF 0108 PUSHAB BUF DESC : 
2c «AB OOF o1 E PUSHAB ; 
000000006 00 04 FB 00111 CALLS #4, CREATE _LOGICAL ; 
04 00118 RET + 0881 


; Routine Size: 281 bytes, Routine Base: S$CODE$ + 0130 


$-32_v4.0-742 Page 1 
TER:CLOGIN.SRCJFILE10.832;1°" (6 


Iecdeo-t9Be O1: 54:15 


—— 
po a 
<— 


o=<= 


: § } GLOBAL ROUTINE close_output: NOVALUE = 

: 4 loon 

; § 1 i Close fhe primary output file, so that it may be spooled to 

: ! the print queue. 

; 5 1! Inputs 

; 90 1! 3 
3 $3) 1! output_fab = FAB for output file : 
; 95 ! output_rab = RAB for output file : 
; $92 1 ' Outputs: : 
3 0895 1! : 
; 4) 1! ALL errors are ignored. 3 
3 0897 1 !--- 3 
; 0898 1 

3 0899 BEGIN 

3 0900 

: 0901 SFLUSH(RAB = output_rab); ' Force update 

: 44 SCLOSE(FAB = output_fab); ! Close output file 

; 0904 1 END; 


-EXTRN SYSSFLUSH 


0000 00000 ENTRY CLOSE_OUTPUT, Save nothing ; 0882 
0000" CF 9F 00002 PUSHAB 7 PUT_RAB : 0901 
000000006 00 01 FB 00006 CALLS SYSSFLUSH 3 
0000" CF 9F 0000D PUSHAB ; 0902 
000000006 00 01 FB 00011 CALLS . SYSSCLOSE : 
04 00018 RET 3 0904 ; 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0256 : 


K 15 
voc=000 eSep-19be F2:2ti08 — DASKSVMSMASTERSCLOGIN. SRCIFILEI0.832;1°" (9) 


; 1} 30? ! GLOBAL ROUTINE write_file (filespec): NOVALUE = 

: i ; 1 !--- 

; 514 $9 1! 

: 1? $09 } } Write the contents of a file to SYSS$OUTPUT 

5 aH $e : Inputs: 

; 19 313 ! filespec = Address of filespec descriptor 

; 1 919 Outputs: 

: i 319 1/ None 

: 35 9 1° 

Z 3 § i 9 BEGIN 

: 2 8 9 é MAP 

: 9 i 7 filespec: REF VECTOR; ! Address of descriptor 
: 2 1 0925 2 LOCAL 

3 236 09 § fab: BBLOCK Cfab$c_bln], ! FAB for file access 
2 09 rab: BBLOCK repse blind, ' RAB for file access 
: 534 82 8 buffer: VECTOR (128,BYTEJ, ! Input buffer 

3 232 3 4 status; 

: 537 P 0931 2 SFAB_INIT(FAB = fab, 

; 538 P 09 ; FNS = .filespec [0], ! Filespec 

; 539 P 093 FNA = .filespec (1), 

; 540 P 0934 DNM = ‘.LIS', ! Default filespec 

; 541 P 0935 FAC = GET ! Read only 

$ 246 b258 FOP = $005; ! Sequential only optimization 
: 544 P 0958 ¢ SRAB_INIT(RAB = rab, 

3; 545 P 093 FAB = fab, ' Address of associated FAB 
> 546 P 0940 UBF = buffer, ! Address of input buffer 
; ote 336) USZ = 128); 

: 349 0943 status = SOPEN(FAB = fab); ! Open the file 

; $3) goee Ag Status ! If error detected, 
; 238 094? BEGIN 

; 554 base SIGNAL (Lgi$_openin,1,.filespec,.status,.fab Cfab$l_stv]); 
3 22? 94 RETURN; 

{328 $984 ; 

; $36 bae6 status = SCONNECT(RAB = rab); ! Connect to stream 

: 566 0994 IF NOT status ' If error detected, 
; $e 36 BEGIN 

: 56 5 SFAAL (igs cpenin.1..#ilespec..stetys -rab Crab$l_stv]); 
; 564 998 SCLOSE(FAB = fab); ' élose file 

3s 365 95 RETURN; 

3 $8 0 END; 

3; 36 961 


15 
FILEIO 1b-Se -1984 01:54: VAX-11 Bliss-32 V4.0-742 Pp 1 
Vv eh00 1 =300n 138% 04:24: )2 DISKSVMSMASTER:CLOGIN. SRCIFILE10.B32:1> 3} 
: $8 38 parte (status = $GET(RAB = rab)) ! For each record which can be read, 
; $3 387 BEGIN 
s $71 +t LOCAL 
: if 208 desc: VECTOR (2); 
: 574 96 desc [0] = .rab Crab$ : ! i 
73 ; gose fo) . 4 easiest; Construct descriptor of record 
: 275 37} write_output (desc); ! Write to SYSSOUTPUT 
Pe owe Ba 
3 59 are F .status NEQ rms$_eof ! If loop didn't end normally, 
3 SB b378 SIGNAL (Lgi$_openin,1,.filespec,.status,.rab Crab$l_stvJ); 
: 584 0978 2 SCLOSE(FAB = fab); : 
: ope 0999 , a Close file 
: 586 0980 1 END: 
-PSECT $PLITS$,NOWRT,NOEXE,2 
53 49 4C 2E 00090 P.AAV: .ASCII \.LIS\ : 
.EXTRN SYS$GET 
.PSECT S$CODE$,NOWRT,2 
O1FC 00000 -ENTRY WRITE_FILE, Save R2,R3,R4,R5,R6,R7,RB : 0905 
58 090000006 00 9 90002 HOVAB. LIBSSTGNAL. RB. : 
57 000000006 8F D0 00009 MOVL @# gis OPENIN, R7 : 
3 FEES CE 9E 9919 MOVAB “3 4(SP), : 
0050 = &F 00 6E ‘ o0 2¢ 9913 movcS #0, (SP), #0, #80, SRMS_PTR : 0936 
AD 5003 F BO OOO1E MOVW #20483, S$RMS_PTR : 
B4 AD 40 8F 9A 00024 MOVZBL #64, SRMS_PTR+4 ; 
C6 AD : 90 00029 MOVE ss #2, SRMS_PTR* G2 ; 
CF AD 90 0002D MOVB #2, S$RMS"PTR+ ; 
56 4 AC DO 00031 MOVL  FILESPECT R6 ; 
DC OAD 4 Ab b0 035 MOVL  4(R6), SRMS_PTR+44 : 
EO AD 0000" CF A MOVAB P.AAV, SRMS~PTR+48 F 
£4 AD 6 40 MOVB (R6), $RMS_PTR+52 : 
ES AD 44 MOVB. #4, $RMS_PTR+53 : 
0044 8F 00 6E ais 0 2c 48 MOVCS #0, (SP)> #0, #68, SRMS_PTR ; 0941 
0088 CE 4401 rt 0 2 MOVW #17409, SRMS_PTR : 
C AD F 9B MOVZBW #128, $RMS_PTR+32 ; 
6 AD AE 9E MOVAB BUFFER, S$RAS PTR+36 : 
AB AD BO AD 9E MOVAB FAB, SRMS_PTR+60 : 
BO AD OF PUSHAB FAB > 0943 
000000006 99 a. CALLS #1, SYSSOPEN F 
g D MOVL RO STATUS ; 
OF E 7 BLBS status, > 094 
BC AD DD 0007 PUSHL FAB+ > 094 
52 DD 00078 PUSHL STATUS : 


1 


~~ = 


4 01:54: 0-742 2 
2:41: “ D =CLOGIN.SRCIFILEIO.B32;1°" (95 


iS, LIBSSIGNAL 


os 
bed 
oe 


RAB 

000000006 #1, SYSSCONNECT 

RO, STAT Us 
STATUS, 

SAB 


#1, SYSSGET 
A 


~ 
bad 


000000006 


DES 
RABS.0, DESC+4 
#1, WRITE_OUTPUT 
STATUS, #98938 


RAB+12 
STATUS 
R6 


#1 

R7 

#5, LIBSSIGNAL 
#1, SYSSCLOSE 


04 
0000Vv 
0001827A 


-—- Ww 
ren 
ee ee 


68 


BO 
000000006 00 


SSS rio Dri Ob nae 
GTOWOMO SOLD OLMIS OOwe- Wino 
w 
Cad 


29 NI SNS MNS SS MOONO—-MNO—TM  OUIN Oo 
BW *WOoOIIFTOW—-DWIONOOW"Ooow"seDOVCOYO 


SQOooooooooooooooooooooooooooo 


OP OMOVNMOM OV1T Ovi PVMNOOVVIONM Owmow 
OQOQCOCOCoooooooooooooooooooooooeo 
OOOO OCOCOSOSCSCOCSoSoOOOOOOCOOOOOOOOOoOoOOoOO 


Sa ltaoeoee OH] TNO OWING NOMI "OO NOOO 


; Routine Size: 222 bytes, Routine Base: S$CODES + 026F 


N15 
16-Sep-1984 254: VAX-11 Bliss-32 V4 
ees ae Se HS ee 


=742 p 3 
NSACIFILEIO.B3209°" (8) 


Fi 
g5 


G 


: Hy 8 1 1 GLOBAL ROUTINE write_fao (ascic_ctlstr, fao_args): NOVALUE = 
: 590 9 § 1 le<- 
; 591 984 1! 
: 36 , 5 ! Format a message and write it to the primary output stream. 
3 334 2 ? ! Inputs: 
: 239 989 1! ascic.ctlstr = Address of ASCIC FAO control string 
3; 0990 1! fao_args = First FAO argument (optional) 
: 598 991 1! 
; 599 336 1 ! Outputs: 
; 600 995 1! 
; 601 9946 1! None 
; O06 995 1 !<=- 
; 60 336 1 
; $04 99 BEGIN 
; 605 998 
: B08 0 hae VECTOR [2] | Descri f FAO stri 
3 ctlstr: . ! Descriptor o strin 
; 608 1001 desc: VECTOR £23 . . 
; 609 100¢ buffer: VECTOR (128,BYTE); 
: 611 1004 2 ctlstr [0] = CHSRCHAR(.ascic_ctlstr); ! Set up FAO string descriptor 
; oi¢ 1006 ctlstr £93 = .ascic_ctlstr+1> . . ‘ 
: 614 100 desc (0) = 128; ! Set up result descriptor 
; 615 1008 desc £3 = buffer; . , 
3; 616 1009 
3 617 P 1010 SFAOL(CTRSTR = ctlstr, 
; 618 P 1011 OUTLEN = desc, 
3 619 P Ile OUTBUF = desc, 
; 620 101 PRMLST = fao_args); 
3; 621 1014 
5 6 § 1015 write_output (desc); 
: © 1oi8 ¢ 
3; 624 101 END; 
-EXTRN SYSSFAOL 
0000 00000 -ENTRY WRITE_FAO, Save nothing ; 0981 
5E FF70 CE 9€ 8 $ MOVAB <-144(5P), SP 5 
FB OA 04 BC 9A ROVZBL @ASCIC_CTLSTR, CTLSTR + 1004 
FC OAD 04 Ac Oi 1 ADDL3 #1, ASCIC_CTLSTR, CTLSTR+4 > 1005 
FO AD 80 F OA 1 MOVZBL # : 1007 
Fe OAD 6E 9E 0001 MOVAB. BUFFER, DESC+4 : 1908 
08 AC 9F 0001B PUSHAB FAQ_ARGS > 101 
F AD F . PUSHAB DEST ; 
F AD 9F PUSHAB 3 
F AD F 4 PUSHAB CTLSTR F 
000000006 00 04 FB 7 CALLS #4, SYSSFAOL 3 
FO AD OF 4 PUSHAB ; 1015 
0000vV CF 01 F cays #1, WRITE_OUTPUT : 1017 


—TOMWNGIOWZ EBS KOH ITO ™MOOWVZSEl ACH TO WMIOOZ SF KC He TOWN OOOZ Sr ACH TO WMIOOW 


ALE BBa ifrReortaee QU:s:1s yA 


; Routine Size: 55 bytes, Routine Base: $CODE$ + 0340 


4.076 4 
OG GN. SRCIFILEIO.B32097° as 


16 
1S 1984 01:54:15 VAX-11 Bliss-32 V4.0-742 Page 25 
00 1er8een 188s [3:21:08 DISKSVMBMASTERSCLOGIN. SACIFILEIO.B3269°" (93 
; 6 $ ! 18 ! GLOBAL ROUTINE write output (recdesc, param, rab_param) = 
Bees ete 
3 3 18 § ! Write a record to the primary output stream 
BE pees 
> 634 1026 1! recdesc = Address of descriptor of record 
; 635 1027 1! param = $PUTMSG actprm argument (not used) 
3 og8 18 S | } rab_param = address of rab to use (optional) 
Loh RR | | moo 
: 640 1036 7! routine = 0 (when used as SPUTMSG action routine, tells 
; 641 1035 1! SPUTMSG not to output message itself) 
; 64 1034 1 !<=- 
; 664 1035 1 
aa 
: 646 1038 2 BUILTIN 
> 647 1039 § ACTUALCOUNT; 
: bas 10¢) 5 map 
: 650 Hk ; recdesc: REF VECTOR; ! Address of descriptor 
: 883 1oee § BIND 
; re 1045 2 timeout = UPLIT(-30*10*1000*1000,-1); ! 30 seconds 
: 63e 106? 3 LOCAL 
; 696 1048 2 rab : REF $BBLOCK; 
: 658 1080 3 IF ACTUALCOUNT() GEQU 3 
; 659 1051 2 THEN rab = .rab_param 
; 4 1026 § ELSE rab = output_rab; 
; 66¢ ieee 2 if -rab Crab$w_isi] EQL 0 ! If file not yet opened, 
: 664 1056 ; RETURN 0; ' then skip it 
; 666 1058 rab Crab$w_rsz) = .recdesc £92: 
; yo 14 1932 rab Crab$l_rbf] = .recdesc (1); 
3 669 P 1061 SSETIMR(DAYTIM = timeout ! Set timeout timer going 
; 670 P es ASTADR = write_timeout, 
: $7) fs REQIDT = 99); 
: or7 1982 write_output_status = SPUT(RAB = .rab); ! Output message 
: 675 1967 SCANTIM(REQIDT = 99); ! Cancel the timer 
: 67 1069 ¢ RETURN 0; 
: 678 1070 
: 679 1071 END; 


iH 


; Routine Size: 


87 bytes, 


Bolbeson 
ESE BEE 


FFFFFFFF EE1E5D00 00094 


rr 
cor 
> 
™m 


009000006 00 
000000006 00 
0000° 


000000006 00 


Routine Base: 


Rr B00 08 
8 1F $008 
0c At DO 00007 
05 11 00008 
0000' CF 9 iat 
FF a 
04 AC 00 $001 
60 BO 00018 
04 AO DO OOCIF 
63 8F 9A Bp Oss 
0000v CF 9F 00028 
0000' CF 9F Bogs 
7E 04 00050 
8 FB 4h F3 
2 dD 000 
01 FB 00038 
50 oO 9h 
7E 04 0004 
63 8F 9A 00049 
02 FB 0004D 
50 04 00054 
04 00056 


SCODES + 0384 


P. AAW: 


TIMEOUT= 


no 
bah 


Ww 
wn 


»PSECT 
«LONG 


2:54:15 VAX=11 Bliss-32_ V4.0-742 
241:05 DISKSVMSMASTER:CLOGIN.SRCJFILEIO. B32: 79 


SPLITS,NOWRT ,NOEXE,2 

-300000000, -1 

sysssetinn, SYSS$PUT 

SYSSCANTIM 

SCODES,NOWRT,2 

ry ete; ite Save R2 
a 


1$ 

RAB. PARAM, RAB 
UTPUT_RAB, RAB 
(RAB) 

RECDESC, RO 
(RO), 34(RAB) 
4(ROS, 40(RAB) 
#99, =(SP) 
WRITE_TIMEOUT 
TIMEOUT 

#6. SYSSSETIMR 
RAB 

#1, SYSS$PUT 

RO, WRITE YOUTPUT. STATUS 
=) gee 


#2. SYSSCANTIM 
RO 


° 3 


A 


16 
FILEIG 1b-se 1984 01:54:15 VAX-11 Bliss-32 V4.0-742 Page 27 
vosease 12-8081 3Re 12:41:05 DISKSVMSMASTER: CLOGIN. SRCIFILEI0.832:1> 185 
; 68) 1072 1 GLOBAL ROUTINE write_timeout: NOVALUE = 
; 68? 1978 1 % 
: 68° 1074 1 !<<< 
: 4 1075 1! 
3; 4€A5 178 1! The timeout has elapsed while trying to write to the primary 
3 1077 1! Output stream. We assume that the user pressed control/s to 
; ¢ 1078 1! inhibit completion of the write. Cancel the I/0 to force 
: $8 1079 1! completion of the S$PUT. 
; 689 1080 1! 
; 690 1081 1 ! Inputs: 
; of 10e6 ; | 
3; 69 138 1} None 
; 69 1084 1! 
; 694 1085 1 ! Outputs: 
; 695 1086 1! 
; 696 1087 1! None 
; 697 1088 1 !--- 
; 698 1089 1 
; 699 1090 BEGIN 
; 700 1091 
; 701 94 ROUTINE cancel_io = 
; 70 109 BEGIN 
s 70 1094 SCANCEL(CHAN = .input_chan); ! Cancel the I/0 to the terminal 
: 704 1095 3 SCANCEL(CHAN = .output_chan); 
: 705 1096 3 1 
; 706 1097 2 END; 
-EXTRN SYSS$CANCEL 
0004 00000 CANCEL_I0: 
- WO Save R2 : 1092. 
52 00000000G 00 9€ 00002 MOVAB SYSS$CANCEL, R2 3 
0000° CF 0D 00009 PUSHL  INPUT_CHAN 3 1094. 
01 FB 00000 CALLS #1, SYSSCANCEL ; | 
0000" CF DD 00010 PUSHL OUTPUT CHAN : 1095 
62 4 FB 00014 CALLS #1, SYSSCANCEL ; 
50 1 00 HEA MOVL #1, RO : 1097 
04 OOO1A RET 3 
; Routine Size: 27 bytes, Routine Base: $CODE$S + 0308 
: 707 1098 : 
3 A 1980 SCMEXEC(ROUTIN = cancel_io); ' Cancel the 1/0 in exec (RMS) mode 
: 710 1101 RETURN true; 
s 7ii 1136 
: 712 110 END; 
-EXTRN SYSSCMEXEC 
0000 ENTRY WRITE_TIMEOUT, Save nothing ; 107? 
7E 04 ite CLRL -(SP) 3 10°9 


F 16 
VOxeb80 1px een 1 8Be Ob 2ti be Pe abd tea loadin Secor ivero.03209% «189 
000000006 00 ae ee 0007 EALLS. fo Eb SScmexeC : 
04 O000E RET : 1103 


; Routine Size: 15 bytes, Routine Base: SCODES + 03F6 


16 
FILEIO 1-S0 1984 01:54: VAX=-11 Bliss-32 V4.0-742 Pa 9 
voee 12286871382 952T 508 DISKSVMSMASTERSCLOGIN.SRCIFILEIO.B32¢1°" (14) 
GLOBAL ROUTINE get_input (rab, mode) : NOVALUE = 
' esece 
i 


Read a record from the prvarey input stream. A blanket timer is 
run around the eS to handle obscure cases where the terminal 
driver character timeout might not work. This ensures that we 
will never end up with a hung job in LOGINOUT. 


Inputs: 


NNN 


INIA POPU NoNUNOPonunony 3 2 Ss Ss SS 


mode for normal error message if error 
if just exit quietly on error 


rab = x x of RAB to use 
1 
2 Like 0 except return if timeout (after signaling) 


Outputs: 
None. 


WN" SO DONOUES WN OOD OBNOUS 


BEGIN 


SN NNN NNN 


GRAS 


738 P 
rab: REF SBBLOCK; 


LOCAL 
status; 


IND 
timeout = UPLIT (-300*10*1000*1000,-1); ! 5 minutes 


SSETIMR (DAYTIM = timeout ! Set timeout timer going 
ASTADR = write_timeout, 
REQIDT = 99); 


status = $GET (RAB = .rab); ' Issue the read 
SCANTIM (REQIDT = 99); ' Cancel the timer 


i If an error occurs, either signal it or exit quietly, depending on 
caller's request. 


if NOT .status 
AND .status NEQ rms$_rtb 
ano <.status NEQ rms$_tmo OR .rabCrab$b_tmo] NEQ 0) 


>_> 
DONAOULWN "OOD 


CST Soe 


NIN 
Oa 
_ 


BEGIN 
IF .mode EQL 2 
AND .status EQL rms$_tmo 
SIGNAL ((Lgi$_cmdinput AND NOT sts$m_severity) OR sts$k_warning, 0, 


TE TE TETETETOIEIE TRIE CEE CE IRI Tee eee eee eee ere rere re rere rere ererererererere rere Terai 
~“ 
= 

ee cee el cee me me me me ce ee a ed ed ed od od dd = dd 


PEE EWN WOPNNOPONOPONOPOPUPONOPOPUPOPUPNOPPNONNNIN 2 
= > 


H16 
128-868-138 


4 
4 


»PSECT 
- LONG 


: ‘771 1161 4 «Status, .rabCrab$l_stv]) 
: Og 118 4 SIGNAL_STOP(L9{S. cadinout 
: mdinput, 
: 77% 1164 4 status, or ablrabs utes; 
s 775 1165 4 END 
3 ae 1198 3 
a a9 1167 4&4 BEGIN 
; 778 1168 4 set_terminal_hangup(true); 
; 779 1169 4 SCMEXEC(ROUTIN = exit_process); 
; 780 1170 ND; 
3 re) 132) END; 
3 18 1198 END; 
FFFFFFFF 4D2FA200 OOO9C P.AAX: 
TIMEOUT= 
000C 00000 
7E 63 8F 9A 00002 
E8 AF OF ai 
0000" CF 9F 00009 
7E 04 00000 
000000006 00 04 FB OO0F 
52 04 AC 00 00016 
000000006 0 34 PB bore 
98 5 4 860 
7E 04 00026 
7E 63 8F 9A 00028 
000000006 90 9 4) 00 § 
6C E8 000 
000181A8 8&F 53 D1 000 
g 13 00030 
00018180 &8&F D1 0003F 
05 1 epee 
1F ag 7 8 
5 48 
9 8 AC €E Bed 18: 
2 0 | } 0051 
000181B0 8&F ; of 3 
OC Ad dD 
$ 0D 
E D4 
00000000* ar DD 
000000006 00 4 4 
0c <A2 OD 75 2$: 


EAE 


Liss 


X-11 Bliss-32_V4.0=-742 
SKSVMSMASTER 


:CLOGIN.SRCJFILE10.832 


VA 
DI 


SPLITS,NOWRT ,NOEXE,2 
1294967296, -1 
P.AAX 


SCODES,NOWRT,2 

yA ah Save R2,R3 

#99- =(S 

WRITE_TIMEOUT 

TIMEOOT 

#4, SYSSSETIMR 

RAB, R2 

R2 

#1, SYSSGET 

RO STATUS 

#99, =(SP) 

#2, SYSSCANTIM 
STATUS, 4$ 
STATUS, #98728 
STATUS, #98736 
1(R2) 


MODE, 3$ 
MODE, #2 


io #98736 


2(R2) 
STATUS 


=(SP) 
#<LG1$_CMDINPUT&~8> 
#4, LIBSSIGNAL 


12(R2) 


Pa 
A 
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e 30 
(11) | 


| 


e 31) 
° (11) 


Pa 
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$$-32 V4.0-742 


~m vo oO 
oO wo oO 
- oor - 
- oo =— 
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Oo 
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' 
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- Su 
=) _ w 
aa = wx 
zo ce ww 
ee w ws 
aw — wu 
=a ' ow 
wow L od ew 
” ef w a> 
DA *MY nn 
-—-ae are 
amo «+ wew s 
Kew osr  eerw xO 
Mteze BBRiwe 
—+ wf JW) 2. 
ee ee ee > 
Sd ee eh he 
> jo atw5odt Sow 
AvVlAYVEAvVwvtve 
Sf oe 
~*~ wr 
DEVS COMM ae 
P-P-DODODDOO OO < 
OOoQooooooooo 
Ooooooocoooo 
Ooooooooooco 
ovo@woegNsuOvy 
e004004u OoeuO 
Mayes ee wow 
o o 
o ao 
Oo Oo 
o So 
o So 
o o 
oO o 
ao So 
Oo Oo 
o oO o 
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So o Oo 
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163 bytes, Routine Base: $CODE$ + 0405 


; Routine Size: 


-Sep-1 
785 1174 ND 
786 1175 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 
SOWNS $33 NOVEC, WRT, RD ,NOEXE,NOSHR, 
SGLOBALS 00 NOVEC, WRT, RD ,NOEXE,NOSHR, 
SPLITS 164 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
SCODES 1192 NOVEC,NOWRT, RD, EXE,NOSHR, 

Library Statistics 
woeen--- Symbols ------- - 

File Total Loaded Percent 

_$255$DUA28: CSYSLIBILIB.L32;1 18619 123 0 


COMMAND QUALIFIERS 


16 
1b-Sep-1 


3B¢ 92324208 


liss- 
MASTE 


-EXTRN LIBSSIGNAL, LIBSSTOP 


Pages 
Mapped 


1000 


Processing 
Time 


00:01.5 


32 V4.0-742 P 
RSCLOGIN. SRCIFILEIO.B32097" (125 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:F ILEIO/OBJ=OBJ$:FILEIO MSRC$:F ILEIO/UPDATE=(ENHS$:F ILEIO) 


Size: 


1192 code + 919 data bytes 


Run Time: :20. 
Elapsed Time: 01:25.3 
/c™’ “in: 3371 


Lines/C 
Lexemes 


fonpita 


/CP “Min: 48393 
Usea: 190 pages 
tion Complete 


MENT CORPORATION 
ND PROPRIETARY 


= 
Z 


eh 


